home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / andere sprachen / oberonv4 / oberon-src / system / bitmaps.mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1995-05-26  |  542 b   |  21 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. MODULE Bitmaps;
  4. IMPORT Amiga,Display,Pictures;
  5.     Bitmap*=Pictures.Picture;
  6.     Disp-:Pictures.Picture;
  7. PROCEDURE New*(w,h:INTEGER):Bitmap;
  8.     b:Bitmap;
  9. BEGIN
  10.     NEW(b);
  11.     Pictures.Create(b,w,h,Amiga.Depth);
  12.     RETURN b;
  13. END New;
  14. PROCEDURE CopyBlock*(src,dst:Bitmap; sx,sy,w,h,dx,dy,mode:INTEGER);
  15. BEGIN
  16.     Pictures.CopyBlock(src,dst,sx,sy,w,h,dx,dy,mode);
  17. END CopyBlock;
  18. BEGIN
  19.     Disp:=Display.screen;
  20. END Bitmaps.
  21.